unit UPessoa;

interface

type
  TPessoa = class
    private
      function GetCod: Integer;
      function GetNome: String;
      function GetTel: String;

      procedure SetCod(const Value: Integer);
      procedure SetNome(const Value: String);
      procedure SetTel(const Value: String);

    protected
      FCod: Integer;
      FNome: String;
      FTel: String;

    public
      constructor Create;

      property Cod: Integer read GetCod write SetCod;
      property Nome: String read GetNome write SetNome;
      property Tel: String read GetTel write SetTel;

  end;

implementation

{ TPessoa }

constructor TPessoa.Create;
begin
  FCod := 0;
  FNome := '';
  FTel := '';
end;

function TPessoa.GetCod: Integer;
begin
  Result :=  FCod;
end;

function TPessoa.GetNome: String;
begin
  Result := FNome;
end;

function TPessoa.GetTel: String;
begin
  Result := FTel;
end;

procedure TPessoa.SetCod(const Value: Integer);
begin
  FCod := Value;
end;

procedure TPessoa.SetNome(const Value: String);
begin
  FNome := Value;
end;

procedure TPessoa.SetTel(const Value: String);
begin
  FTel := Value;
end;

end.
 